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Inhaltsubersicht 

• Motivation 

• Disziplinen 

Hello World 
99 Bottles of Beer 
Quines 

SpaBige Programmiersprachen 
Kurzestmogliches Programm 
Obfuscated Programming 
Polyglot 

Kombidisziplinen 
Weiteres... 



Aspirin bereithalten! 
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Motivation 

• Ubliche Ziele bei der Programmierung: 

Ein Problem gelost bekommen 
Geld verdienen 
Gut wartbaren Code erzeugen 
Moglichst wenig Kosten 
Moglichst wenig Zeit 
Ubungsaufgabe losen 
Arbeit erleichtern 

• Ubliche Ziele im Sprachdesign / Compilerbau: 

Einfache Compiler ermoglichen 

"Universalsprache" erfinden 

Bestimmte Aufgaben effizient losbar machen 

Ein Beispiel fur ein Lehrbuch / eine Vorlesung schaffen 
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Motivation 




• Ziele heute Abend aber: 

Einfach mal was anders machen 
Programmieren als Wettkampf 
Zeitvertreib 

Moglichst knifflige Ratsel schaffen 

Erstaunen / Anerkennung beim Publikum hervorrufen 

Satire / Veralberung althergebrachter Grundsatze 

Etwas "unmogliches" erreichen 

Einfaches kompliziert machen 

Spass haben 

vielleicht auch: Alkoholrausch / Drogentrip ausleben? 
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Hello World 

• Beliebte Aufgabe im Bereich "mein erstes Programm" 

• Wohl am haufigsten geloste Programmieraufgabe 

• Sammlung des ACM 

> http : //www2 . latech . edu/~acm/HelloWorld. shtml 

Uber 200 Programmiersprachen 

• Eigentlicher Nutzen eher sehr gering 

• Hier ein paar heute eher "exotische" Programmiersprachen 
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Hello World - Exoten: 

• Caml 

let printHelloWorld() = 

print_string "Hello World\n"; ; 

• Haskell 

main = print ("Hello World") 

• HyperTalk 

on OpenStack 

show message box 

put "Hello World! " into message 
end OpenStack 
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99 



Bottles of Beer 




• Fortgeschrittenenaufgabe in Programmierkursen 

• Dient zur Einfuhrung von Schleifen 

• Erfunden im Usenet als Reaktion auf Troll 

• http: / /99-botties-of-beer. is-ia.net/ - derzeit iiber 620 Beispiele 

• Das historische erste Auftreten: 

10 REM Basic version of 99 bottles of beer 
20 FOR X=100 TO 1 STEP -1 

30 PRINT X; "Bottle (s) of beer on the wall, "; X; "bottle (s) of beer" 
40 PRINT "Take one down and pass it around, " 
50 PRINT X-l; "bottle (s) of beer on the wall" 
60 NEXT 
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99 Bottles of Beer 



• APL2 -Version: 



BEER; QIC); DPW 

AAPL2 version (no loops) of "99 bottles of beer" by Chuck Kennedy 

□ IO<-0 flStart counting from 

□PW<-150 flSet printing width to 150 chars 

a<-, [ 1 ] eb i 1 n Integers from 99 thru as a column matrix 

b<-c 1 bottles of beer on the wall, 1 

c*-c 1 bottles of beer, 1 

d<-= 1 Take one down and pass it around. 1 

e*-((a,b ( a,c) ,d) , (lea) ,b flBuild the song, next two lines fix the English 

e [98 ; 1 3 4 5]<-(t(z.b)~'s l )(c(z.c)~ l s l )(c l Take it down and pass it around . 1 ) (c 1 No more 1 ) 

e[99;]<-'No more 1 b 'Mo more 1 c 1 Go to the store and buy some more* 1 99 b 

e ^Display the song 
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99 Bottles of Beer 

• Makefile 

# quick effort at 99 bottles program using gnu make 
# 

# the file must be called makefile .bottles 
# 

# Author: Andrew Dunstan (andrew.dunstan@its.maynick.com.au) 
# 

default : 

$ (MAKE) -f makefile. bottles BOTTLES=99 bottles 

. SILENT : 
bottles : 

echo $ (BOTTLES) bottles of beer on the wall 
echo $ (BOTTLES) of beer 
echo Take one down and pass it around 
ifeq ($ (BOTTLES) , 0) 

echo No bottles of beer on the wall 

else 

echo 'expr $ (BOTTLES) - 1' bottles of beer on the wall 
echo 

$ (MAKE) -f makefile. bottles B0TTLES= 'expr $ (BOTTLES) - 1' bottles 

endif 
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Quines 




• Ein Programm, das den eigenen Quelltext ausgibt 

• Benannt nach Willard van Orman Quine, via Douglas Hofstadter 

• Aufgabe ist eigentlich nicht so einfach: 

print "hallo" 
ZU 

print "print \"hallo\"" 

tut nicht! 

• In BASIC trivial, da Zugriff auf den Quelltext 

10 LIST 

• Einfachstes Quine: Leeres Programm 

zulassig z. B. in Bash, Python, Perl, HQ9+, K&R-C... 

• Fur ein "echtes" Quine ist aber etwas Trickserei notwendig 
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Kurze Quines 

• Lisp, Scheme: 

( (lambda (x) 

(list x (list (quote quote) x) ) ) 
(quote 

(lambda (x) 

(list x (list (quote quote) x) ) ) ) 



char*f="char*f=%c%s%c;main() {printf (f , 34, f, 34, 10) ; }%c";main() {printf (f , 34, f, 34, 10) ; } 

Perl 

$_=q { $_=q { Q } ; s /Q/ $_/ ; print } ; s /Q/ $_/ ; print 

Python 

_='_=%s; print _%%'_"; print 
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Spassige Programmiersprachen 



Anscheinend nach dem Genuss von 99 Bottles of Beer entstanden 

Bereiten manchmal Kopfschmerzen 

Einige davon haben Obfuscation (siehe spater) als Hauptziel 
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HQ9+ 




• Optimiert auf die wichtigsten Problemstellungen des Programmieranfangers: 

H - gibt "Hello World" aus 
Q - gibt den eigenen Quelltext aus 
9 - gibt 99 Bottles of Beer aus 
+ - erhoht das Arbeitsregister um 1 

• Einige Beispiele: 

Hello World 

H 

Quine 4-fach 

QQQQ 
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Brainfuck 

• Erste Implementierung von Urban Muller fur den Amiga 

• Brainfuck-Compiler fur AmigaOS 2.0: nur 240 Bytes (!) 

• Compiler fur i386/Linux/ELF: 172 bytes 

• Quine benotigt etwa 3 Kilobyte GroBe! 

• Primitive "virtuelle Maschine" mit 1 Adressregister 

• 30000 Bytes Datenspeicher (am Anfang 0) 

• Programmspeicher "unsichtbar" 

• Varianten: (Compressed BF, Preprozessor, I/O extensions, self-modifying 
code, Multi-Threading mit Concurrent Branfuck...) 
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Brainfuck - Opcodes 

• 8 Befehle: 



Opcode 


Bedeutung 


C-Code 


> 


Adressregister erhohen 


++p; 


< 


Adressregister erniedrigen 


-p; 


+ 


Speicherzelle an aktueller Adresse erhohen 


++*p; 




Speicherzelle an aktueller Adresse erniedrigen 


~*p; 




Aktuelle Speicherzelle ausgeben 


putchar(*p); 




Einlesen und speichern in aktueller Speicherzelle 


*p=getchar() 


[ 


Springe hinter die zugehorige ], falls p=0 


while (*p) { 


] 


Springe zur zugehorigen [ 


} 
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Brainfuck 

• Kurzester BF-lnterpreter in C: 

char m[9999],*n[99] , *r=m, *p=m+5000, **s=n, d, c;main () {for (read (0, r, 4000) ;c=*r; 
r++)c-']' | | (d>l| | (r=*p?*s: (--s,r)),!d| |d— ),c-' [' | |d++| | (*++s=r),d| | (*p+=c== 
'+' ,*p-=c=='-' ,p+= c =='>' ,p-= c =='<' ,c-' . ' I |write(2,p,l),c-',' | | read (2 , p, 1) ) ; } 

• Hello World in Brainfuck: 




>+++++++++ [<++++++++>-] < . >+++++++ [<++++>-] <+ . +++++++ . . +++ . [ 

-] >++++++++ [<++++>-] < . >+++++++++++ [<++++++++>-] <- . . 

+++ . . . [-] >++++++++ [<++++>-] <+ . [-] ++++++++++ . 
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Brainfuck-lnterpreter in Brainfuck 

• Selbst-Ausfuhrung Beweis fur "Erwachsensein" einer Sprache 
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Intercal 

• Entstanden am 26. Mai 1972 

• Erste Implementierung auf Atari, leider verschollen 

• Unix-basierter Compiler von Eric S. Raymond 18 Jahre spater 

• Der Compilername steht fur "Compiler Language With No Pronounceable 
Acronym" 

• Enthalt Statements wie 

DON'T GIVE UP (effektiv ein NOP) 

COME FROM (motiviert durch ACM April-Scherz: R. L. Clark, "A linguistic contribution to 
GOTO-less programming, " Commun. ACM 27 (1984), pp. 349-350)) 

• Ebenfalls diverse Erweiterungen verfugbar 
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Intercal - Beispiel 

• Berechnet den Absolutwert der eingegebenen Zahlen: 

DO (5) NEXT 
(5) DO FORGET #1 

PLEASE WRITE IN :1 

DO .1 <- '?":1~'#32768$#0"'$#1'~#3 
DO (1) NEXT 

DO :1 <- "' ?" :1~'#65535$#0"'$#65535' 

~'#0$#65535' "$"' ?":1~'#0$#65535' " 

$#65535' ~'#0$#65535' " 
DO :2 <- #1 
PLEASE DO (4) NEXT 
(4) DO FORGET #1 

DO .1 <- "?' :1~:2'$#1"~#3 

DO :1 <- "'?":1~'#65535$#0"'$":2~'#65535 

$#0' "'~'#0$#65535' "$"' ?":1~'#0 

$#65535' "$":2~'#0$#65535' " ' -' #0$#65535' " 
DO (1) NEXT 

DO :2 <- " :2~' #0$#65535'" 

$"' " :2~' #65535$#0' "$#0' -' #32767$#1' " 
DO (4) NEXT 

(2) DO RESUME .1 
(1) PLEASE DO (2) NEXT 

PLEASE FORGET #1 
DO READ OUT :1 

PLEASE DO .1 <- '?"' :1~:1'~#1"$#1'~#3 
DO (3) NEXT 
PLEASE DO (5) NEXT 

(3) DO (2) NEXT 
PLEASE GIVE UP 

• Geht auch kurzer, z. B. in APL: [ 1 ] ^O^n* I □ 
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BeFunge & Co. 




• Herkommliche Quelltexte sind eindimensional 

• "Logische Erweiterung" bzw. "nachsthohere Ebene": 
Programme und Daten in mehrdimensionalen Array 

• Instruction Pointer wird mit Sprungvektor bearbeitet 

• Arbeitet mit einem Stack of Stacks 

• Aktuelles Standard-Dokument: Funge98 

• Auch UneFunge und TriFunge sind spezifiziert 

• Angedachte Erweiterungen: Sechseckige Felder, Klein-Bottles etc. :-) 
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BeFunge - Beispiele 

• Hello World: 

v 

>v"Hello world! "0< 
*_25*,@ 

• 99 Bottles of Beer: 

92+9* : . v < 

>v"bottles of beer on the wall"+910< 

$ : .v 

>v"bottles of beer"+910< 

$ v 
>v"Take one down, pass it around"+910< 

$ 1-v 

>v"bottles of beer"+910.:_ v 

A_ $ A 

>v" no more beer . . . "+910< 
$$ @ 

• Quine mit 14 Bytes: 

:0g, :93+ , #@_l+ 
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Java2k 



"Propabilistische Programmiersprache fur Physiker" 
IDE namens DIE verfugbar fur Win32, Linux und Amiga 
Bezeichner: Vielfache von 7 zur Basis 1 1 (Ziffern: "0123456789 ") 
Alle Funktionen haben genau 2 Argumente 

Ausnahme: If-Goto-Else-Statement 

Variablen nur uber indirekte Arrays 

Statements haben genau 90% "Erfolgswahrscheinlichkeit" 

Ausnahme: "1 19"- Wahrscheinlichkeit erhohen 
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Java2k 



Selbstdefinierte Funktionen nur indirekt aufrufbar: 

EVALUATE-FUNCTION-BRANCH-EQUAL-CALL-OTHERWISE function 

A<=>~ (B*C) ; 

Berechne selbstdefinierte Funktion A 
Wenn A zuruckgibt, rufe Funktion C auf 
Andernfalls, rufe Instruktionssequenz B auf 

Zahlen nicht als Literale moglich, nur durch Errechnung 

Hilfe: * fur Zufallszahl, _ wiederholt letztes Argument 
Erzeugen von 1 mit 90% Wahrscheinlichkeit: 

11 6/*/_\ 

Erzeugen von 2 mit 81% Wahrscheinlichkeit: 

125 /ll 6/*/_\/_\ 
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Java2k 

• Einziger logischer Operator: "13 2", implementiert NAND 

A OR B schreibbar als: 

13 2/13 2/A/B\/13 2/A/B\\ 

• Whitespaces: A-D,F-R,T-Z 

Konnen uberall (auch innerhalb von Bezeichnern) sein 
Kommentare gibt es nicht mehr ("use whitespaces instead") 
"selten benutzte" E und S jedoch reserviert zur Thread-ID-Adressierung 
Threads wurden im selben Release abgeschafft. 

• Die Doku an sich ist genauso schlimm, wie die Sprache 
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Java2k - wahrscheinlich Hello World 



1 1 /125 /131 /119 /125 /ll 6/*/W/W/125 A3 2 
/*/_\/_\\/131 /119 /125 /ll 6/*/W/W/125 /13 2 
/*/_\/_\\/119 /125 /ll 6/VW/W/125 /13 2/*/W 
/_\\\\/131 /119 /125 /ll 6/VW/W/125 /13 2/*/ 
_\/_\\/131 /119 /125 /ll 6/VW/W/125 /13 2/*/ 
_\/_\\/131 /119 /125 /ll 6/*/_\/_\/125 /13 2/*/ 
_\/_\\/131 /119 /125 /ll 6/*/W/W/125 /13 2/*/ 
_\/_\\/131 /119 /125 /ll 6/*/_\/_\/125 /13 2/*/ 
_\/_\\/119 /125 /ll 6/*/W/W/125 /13 2/*/W/W 
\\\\\\\/*\l 1 /125 /119 /ll 6/*/_\/13 2/*/W\/ 
125 /131 /119 /125 /ll 6/*/W/W/125 /13 2/*/_\ 
/_\\/119 /125 /ll 6/*/_\/_\/125 /13 2/*/W/WW 
/125 /131 /119 /125 /ll 6/*/_\/_\/125 /13 2/*/_ 
\/_\\/131 /119 /125 /ll 6/*/_\/_\/125 /13 2/*/_ 
\/_\\/131 /U9 /125 /ll 6/*/_\/_\/125 /13 2/*/_ 
\/_\\/131 /119 /125 /ll 6/*/W/W/125 /13 2/*/_ 
\/_\\/119 /125 /ll 6/*/W/W/125 /13 2/*/W/W\ 
WW/131 /119 /125 /ll 6/*/_\/_\/125 /13 2/*/W 
AW/131 /119 /125 /ll 6/*/_\/_\/125 /13 2/*/W 
AW/131 /119 /125 /ll 6/*/_\/_\/125 /13 2/*/W 
AW/131 /119 /125 /ll 6/*/_\/_\/125 /13 2/*/W 
AW/131 /119 /125 /ll 6/*/_\/_\/125 /13 2/*/W 
AW/119 /125 /ll 6/VW/W/125 A3 2/*/_\/_\W 
WW\W/*\1 1 /125 /131 /119 /125 /ll 6/VW/W 
/125 /13 2/*/W/W\/119 /125 /ll 6/*/W/W/ 
125 /13 2/*/W/WW/125 /131 /119 /125 /ll 6/*/ 
_\/_\/125 /13 2/VWAWA31 /119 /125 /ll 6/*/ 
W/W/125 /13 2/*/_\/_W/H9 /125 /ll 6/*/_\/_\ 
/125 /13 2/*/W/WW\/125 /131 /119 /125 /ll 6/ 
VW/W/125 /13 2/*/_\/_\\/131 /119 /125 /ll 6/ 
*/_\/_\/125 /13 2/*/_\/_\\/131 /119 /125 /ll 6/ 
VW/W/125 /13 2/*/_\/_\\/131 /119 /125 /ll 6/ 
*/_\/_\/125 /13 2/VW/WN/H9 /125 /ll 6/VW/ 
W/125 /13 2/VWAWWWA31 /119 /125 /ll 6/* 
/_\/_\/125 /13 2/VWAWA31 /119 /125 /ll 6/* 
/_\/_\/125 /13 2/*/_\/_\\/131 /119 /125 /ll 6/* 
/W/W/125 /13 2/VWAWA31 /119 /125 /ll 6/* 
/_\/_\/125 /13 2/*/_\/_\\/131 /119 /125 /ll 6/* 
/W/W/125 /13 2/*/_\/_W/119 /125 /ll 6/VW/ I 
\/125 /13 2/VWAWWWWW/W1 1 /125 /131 / 
119 /125 /ll 6/VW/W/125 /13 2/VW/WNA19 / 
125 /ll 6/VW/W/125 /13 2/VW/WW/125 / 
131 /119 /125 /ll 6/VW/W/125 /13 2/VWAW/ 
131 /119 /125 /ll 6/VW/W/125 A3 2/VW/WV 
119 /125 /ll 6/VW/W/125 /13 2/VW/WWV 
125 /131 /119 /125 /ll 6/VW/W/125 /13 2/*/_\ 
AW/131 /119 /125 /ll 6/VW/W/125 /13 2/VW 
AW/131 /119 /125 /ll 6/VW/W/125 /13 2/*/_\ 
AW/131 /119 /125 /ll 6/VW/W/125 /13 2/VW 
AW/119 /125 /ll 6/VW/W/125 /13 2/VW/WW 
W\/131 /119 /125 /ll 6/VW/W/125 /13 2/VW/ 
_W/131 /119 /125 /ll 6/VW/W/125 A3 2/VW/ 
_W/131 /119 /125 /ll 6/VW/W/125 /13 2/VW/ 
_W/131 /119 /125 /ll 6/VW/W/125 /13 2/VW/ 
_W/131 /119 /125 /ll 6/VW/W/125 /13 2/VW/ 
_W/H9 /125 /ll 6/VW/W/125 /13 2/VWAWW 
WWW/*\1 1 /125 /119 /ll 6/VW/13 2/VWV 



1 

125 /119 A25 /ll 6/VW/W/125 /13 2/VW/WV 
125 /131 /119 /125 /ll 6/VW/W/125 /13 2/VW 
AW/119 /125 /ll 6/VW/W/125 /13 2/VW/WW 
/125 /131 /119 /125 /ll 6/*/_\/_\/125 A3 2/*/_ 
\/_W/131 /119 /125 /ll 6/*/_\/_\/125 /13 2/*/_ 
\/_W/H9 /125 /ll 6/*/_\/_\/125 /13 2/*/_\/_W 
W/125 /131 /119 /125 /ll 6/*/_\/_\/125 /13 2/* 
/_\/_W/131 /119 /125 /ll 6/*/_\/_\/125 /13 2/* 
/_\/_W/131 /119 /125 /ll 6/*/_\/_\/125 A3 2/* 
/_\/_W/131 /119 /125 /ll 6/*/_\/_\/125 /13 2/* 
/_\/_W/H9 /125 /ll 6/*/_\/_\/125 /13 2/*/_\/_ 
WWW/131 /119 /125 /ll 6/*/_\/_\/125 A3 2/*/ 
_\/_W/131 /119 /125 /ll 6/*/_\/_\/125 /13 2/*/ 
_\/_W/131 /119 /125 /ll 6/*/_\/_\/125 /13 2/*/ 
_\/_W/131 /119 /125 /ll 6/*/_\/_\/125 /13 2/*/ 
_\/_W/131 /119 /125 /ll 6/*/_\/_\/125 /13 2/*/ 
_\/_W/H9 /125 /ll 6/*/_\/_\/125 /13 2/*/_\/_\ 
WWWW\W/*\1 1 /125 /131 /119 /125 /ll 6/*/_ 
\/_\/125 A3 2/*/_\/_W/H9 /125 /ll 6/*/_\/_\/ 
125 /13 2/*/_\/_\\\/125 /131 /119 /125 /ll 6/*/ 
_\/_\/125 /13 2/*/_\/_\\/131 /119 /125 /ll 6/*/ 
_\/_\/125 /13 2/*/_\/_\\/119 /125 /ll 6/*/_\/_\ 
/125 /13 2/*/_\/_\\W/131 /119 /125 /ll 6/*/_\/ 
W/125 /13 2/*/W/_W/131 /119 /125 /ll 6/*/_\/ 
W/125 A3 2/VW/WN/131 /H9 /125 /ll 6/*/W/ 
W/125 /13 2/*/W/W\/131 /119 /125 /ll 6/*/W/ 
W/125 A3 2/*/W/W\/H9 /125 /ll 6/*/W/W/ 
125 A3 2/*/W/WWWW\/*\l 1 /131 A19 /125 / 
11 6/*/W/W/125 A3 2/*/W/W\/131 /119 /125 / 
11 6/VW/W/125 /13 2/*/W/W\/131 /119 /125 / 
11 6/*/W/W/125 /13 2/*/W/W\/131 /119 /125 / 
11 6/VW/W/125 /13 2/*/W/W\/H9 /125 /ll 6/ 
*/W/W/125 /13 2/*/W/WW\W/*\l 1 A25 / 
119 /ll 6/*/W/13 2/*/W\/125 /H9 /125 /ll 6/* 
/W/W/125 /13 2/*/W/W\/125 /131 /119 /125 / 
11 6/*/W/W/125 /13 2/*/W/W\/H9 /125 /ll 6/ 
*/W/W/125 A3 2/*/W/WW/125 /131 /119 / 
125 /ll 6/-/W/WA25 /13 2/*/W/W\/131 A19 / 
125 /ll 6/*/W/W/125 A3 2/*/W/W\/131 /119 / 
125 /ll 6/VW/WA25 /13 2/*/W/W\/H9 /125 / 
11 6/VW/WA25 /13 2/*/W/WWW/131 A19 / 
125 /ll 6/*/W/W/125 A3 2/*/W/W\/131 /119 / 
125 /ll 6/-/W/WA25 /13 2/*/W/W\/131 /119 / 
125 /ll 6/VW/WA25 /13 2/*/W/W\/131 /119 / 
125 /ll 6/VW/WA25 /13 2/*/W/W\/131 /119 / 
125 /ll 6/-/W/WA25 /13 2/*/W/W\/H9 /125 / 
11 6/*/W/W/125 /13 2/*/W/WWWWWW/*\ 
1 1 /125 /119 /ll 6/*/W/13 2/*/W\/125 /119 / 
125 /ll 6/-/W/WA25 /13 2/*/W/W\/125 /131 / 
119 /125 /ll 6/*/W/W/125 /13 2/*/W/W\/119 / 
125 /ll 6/*/W/W/125 /13 2/*/W/WW/125 / 
131 /119 /125 /ll 6/*/W/W/125 A3 2/VW/WV 
131 /119 /125 /ll 6/*/W/W/125 /13 2/*/W/W\/ 
119 /125 /ll 6/*/W/W/125 /13 2/*/W/WW\/ 
125 /131 /119 /125 /ll 6/*/W/W/125 /13 2/*/W 
/W\/131 /119 A25 /ll 6/*/W/W/125 /13 2/*/W 
/W\/131 /119 /125 /ll 6/*/W/W/125 A3 2/*/W 



/W\/131 /119 /125 /ll 6/*/W/W/125 /13 2/*/W 
/W\/H9 /125 /ll 6/*/W/W/125 /13 2/*/W/WW 
WV131 /119 /125 /ll 6/*/W/W/125 A3 2/*/W/ 
W\/131 /119 /125 /ll 6/*/W/W/125 /13 2/*/W/ 

W/131 /119 /125 /ll 6/*/W/W/125 /13 2/*/W/ 
W\/131 /119 /125 /ll 6/*/W/W/125 /13 2/*/W/ 
W\/131 /119 /125 /ll 6/*/W/W/125 /13 2/*/W/ 
WV119 /125 /ll 6/*/W/W/125 /13 2/*/W/WW\ 
WWWW/*\1 1 /125 /119 /125 /ll 6/*/W/W/ 
125 /13 2/*/W/W\/125 /131 /119 /125 /ll 6/*/_ 
\/W/125 /13 2/*/W/W\/131 /119 /125 /ll 6/*/_ 
\/W/125 /13 2/*/W/W\/131 /119 /125 /ll 6/*/_ 
VWA25 /13 2/*/W/W\/H9 /125 /ll 6/*/W/W/ 
125 /13 2/*/W/WWW/125 /131 /119 /125 /ll 6/ 
*/W/W/125 A3 2/*/W/W\/131 /119 /125 /ll 6/ 
*/W/W/125 /13 2/*/W/W\/131 /119 /125 /ll 6/ 
•/W/W/125 /13 2/*/W/W\/131 /119 /125 /ll 6/ 
VW/W/125 /13 2/*/W/W\/H9 /125 /ll 6/*/W/ 
W/125 /13 2/*/W/WW\W/131 /119 /125 /ll 6/* 
/W/W/125 /13 2/*/W/W\/131 /119 /125 /ll 6/* 
/W/W/125 A3 2/*/W/W\/131 /119 /125 /ll 6/* 
/W/W/125 A3 2/*/W/W\/131 A19 /125 /ll 6/* 
/W/W/125 A3 2/*/W/W\/131 /119 /125 /ll 6/* 
/W/W/125 A3 2/*/W/W\/H9 /125 /ll 6/VW/_ 
\/125 /13 2/*/W/WWW\WW/*\l 1 A25 /131 / 
119 /125 /ll 6/*/W/W/125 /13 2/*/W/W\/119 / 
125 /ll 6/*/W/W/125 /13 2/VW/WWA25 / 
131 /119 /125 /ll 6/VW/W/125 /13 2/*/W/W\/ 
131 /119 /125 /ll 6/*/W/W/125 /13 2/*/W/W\/ 
119 /125 /ll 6/*/W/W/125 A3 2/*/W/W\W/ 
125 /131 /119 /125 /ll 6/*/W/W/125 /13 2/*/W 
/_\\A31 /119 /125 /ll 6/*/W/W/125 /13 2/*/W 
/W\/131 /119 /125 /ll 6/-/W/W/125 /13 2/*/W 
/W\/131 /119 /125 /ll 6/*/W/W/125 /13 2/VW 
/W\/H9 /125 /ll 6/*/W/W/125 A3 2/*/W/WW 
W\/131 /119 /125 /ll 6/*/W/W/125 /13 2/*/W/ 
W\/131 /119 /125 /ll 6/*/W/W/125 /13 2/*/W/ 

W/131 /119 /125 /ll 6/*/W/W/125 /13 2/*/W/ 
W\/131 /119 /125 /ll 6/*/W/W/125 /13 2/*/W/ 
_WA31 /119 /125 /ll 6/*/W/W/125 /13 2/*/W/ 
W\/H9 /125 /ll 6/VW/W/125 /13 2/*/W/WW\ 
WWW/*\1 1 A25 /131 /119 /125 /ll 6/*/W/W/ 
125 /13 2/*/W/W\/H9 /125 /ll 6/*/W/W/125 / 
13 2/*/W/WW/125 /131 /119 /125 /ll 6/*/W/W 
/125 /13 2/*/W/W\/131 /119 /125 /ll 6/VW/W 
/125 /13 2/*/W/W\/131 /119 /125 /ll 6/*/W/W 
/125 A3 2/*/W/W\/131 /119 /125 /ll 6/*/W/W 
/125 /13 2/*/W/W\/H9 /125 /ll 6/VW/W/ 
125 /13 2/*/W/WWW\/131 A19 /125 /ll 6/*/W 
/W/125 A3 2/*/W/W\/131 /119 /125 /ll 6/VW 
/W/125 /13 2/*/W/W\/131 /119 /125 /ll 6/*/W 
/W/125 /13 2/*/W/W\/131 /119 /125 /ll 6/*/W 
/W/125 A3 2/*/W/W\/131 /119 /125 /ll 6/VW 
/W/125 A3 2/*/W/W\/H9 A25 /ll 6/*/W/W/ 
125 /13 2/*/W/WWWWW/*\ 
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Chef 




• Programme sehen aus wie Kochrezepte 

• Zutaten sind Daten (Variablen). 

Flussige Zutaten beiinhalten Unicode-Zeichen 
alle sonstigen Zutaten beinhalten Zahlen 
Liquify etc. zum umwandeln 

• Stacks zum Speichern: "Ruhrschusseln und Backformen" 

• Optionale Statements fur Kochzeit und Ofen-Temperatur 

• Unterprogramme: 

hinten angehangte Zutaten-Rezepte (z. B. SoBen) 
Haben eigene Ruhrschusseln 
Aber: auch Zugriff auf Kopien der Haupt-Behalter 
Liefern exakt eine Ruhrschussel zuruck. 
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Chef 



• Hello-World-Soufflet: 

Hello World Souffle. 

This recipe prints the immortal words "Hello world!", in a basically brute force way. 
It also makes a lot of food for one person. 

Ingredients . 

72 g haricot beans 

101 eggs 

108 g lard 

111 cups oil 

32 zucchinis 
119 ml water 
114 g red salmon 
100 g dijon mustard 

33 potatoes 

Method . 

Put potatoes into the mixing bowl. Put dijon mustard into the mixing bowl. Put lard into 
the mixing bowl . Put red salmon into the mixing bowl . Put oil into the mixing bowl . Put 
water into the mixing bowl. Put zucchinis into the mixing bowl. Put oil into the mixing bowl. 
Put lard into the mixing bowl . Put lard into the mixing bowl . Put eggs into the mixing bowl . 
Put haricot beans into the mixing bowl. Liquify contents of the mixing bowl. Pour contents 
of the mixing bowl into the baking dish. 

Serves 1 . 
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Beatnick 

• Einfach zu lernen: 

Sehrwenige Kommandos 
Sehr freie Syntax 

Vokabel-Referenz in jedem Spielzeuggeschaft erhaltlich 



• Bedeutung der Worter errechnet sich aus Scrabble-Punktzahl 

• Stack-basierte Maschine 

• Auszug aus der Befehlstabelle: 



Score 


Function 


<5 


Does nothing. The Beatnik Interpreter may mock you for your poor scoring, at its discretion. 
Low scoring words such as "I" or "of" are probably not good words to program with 
immediately after stealing all of the interpreter's cigarettes and stomping on its beret. 


18-23 


Does nothing. However, the score is high enough that the Beatnik Interpreter will not mock 
you, unless it's had a really bad day. 


>23 


Garners "Beatnik applause" for the programmer. This generally consists of reserved 
finger-snapping. 
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Whitespace 

• Befehle bestehen aus Folgen von Blank, Tab und Newline 

• Vorteil: massenhafte Ausdrucke von Source-Listings sparen Tinte 

• Beispielquelltext: 
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Kurzestmogliches Programm 

• Gesucht: die kurzestmogliche Losung einer Aufgabe 

• Beispiel: Kurzestes Programm, das die Standardeingabe als Binarausgabe 
umwandelt 

main (c) {while (~ (c=c<4?getchar ( ) | 256 : c/2) )putchar (48 | c%2) ; } 

(58 Zeichen, Gewinner-Beitrag im lokalen CCC-Contest diesen Sommer) 

• Beispiel-Eingabe: 

abc 

• Beispiel-Ausgabe: 

100001100100011011000110 

• Aktuell: Congress-Wettbewerb, siehe http : / /uim.ccc . de/ shortest/ 
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Obfuscated Programming 



Die Kunst, Programme so zu schreiben, daf3 kein Mensch den Quelltexi 
wieder verstehen kann. 




• Wird ebenfalls von Perl-Programmierern immer wieder gerne gepflegt :-) 
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Perl-Camel 



Programm-Quelltext: 



# ! /usr/bin/perl -w 
use strict; 



ATA, 0, 
{ <DATA> ; }my 
my$Camel ; while ( 
9s", $_) ; my@dromedary 
_=<DATA>) ) {@camellhum 
ryl) {my$camellhump=0 
t (@dromedaryl 
$ CAMEL — ;if (d 
$camellhump+=l 



$_= ' ev 
al ("seek\040D 
0; ") ;foreach(l. .2) 
@ camel lhump ; my $ camel ; 
<DATA> ) {$_=sprintf ("%-6 
l=split ( // ) ; if (defined ( $ 
p=split {//) ; ) while (@dromeda 
; my$CAMEL=3 ; if (defined ( $_=shif 
) )SS/\S/) ($camellhump+=l«$CAMEL; } 
efined($_=shift (gdrornedaryl) ) SS/\S/j ( 
«$CAMEL; } $ CAMEL — ; if (defined ($„=shift ( 
gcamellhump) ) SS/\S/) { $camellhump+=l<<$CAMEL; } $ CAMEL — ; if ( 
defined ($_=shift (gcamellhump) )SS/\S/) ( $camellhump+=l«$CAME 
L; ; }$camel . = (split (//, "\040. .nT {/J\047\134}L A 7FX") ) [$camellh 
ump] ; } $ camel . ="\n" ; ) gcamellhump=split (/\n/, $camel) ; f oreach (@ 
camellhump) {chomp; $Camel=$_; tr/LJF7\173\175 ' \047/\061\062\0 63 
45678/ ;tr/12345678/JL7F\175\173\047 V; $_=reverse; print "$„\040 
$Camel\n"; ) f oreach (gcamellhump) ( chomp; $Camel=$„; y/LJF7\173\17 
5 '\047/12345678/;tr/12345678/JL7F\175\173\047 V; $_=reverse;p 
rint"\040$_$Camel\n" ; }# japh-Erudil' ; ; s; \s*; ;g; ;eval; eval 
( " seek\040DATA, 0,0;") ;undef$/; $_=<DATA>; s$\s*$$g; ( 

; * ■*_; ; ; map { eval "print \"$_\""; }/ . (4)/g; DATA 

S0\145\040\165\163\145\040\157\l 46\040\1 
40\143\141 \155\145\1 54\040\1 51\155\ 
40\151\156 \040\141 
151\141\16 4\151\1 
\151\164\1 
154\040\15 
64\162\1 
1\162\ 
040\11 
1\154\1 

012\101\16 
7\143\15 

4\145\163 
\111\156\14 
125\163\145\14 
51\164\1 50\0 



\1 



50\040\ 
1\163\ 
41\144 
153\04 
7\047\ 
54\171 



\147\145\0 
157\143\ 
\040\167 
45\162\ 
1\040\1 
155\14 
\146\ 
45\15 
\046\ 
3\15 
1\16 
\040 
\040\ 
167\1 
145\162 
\163\163 
57\156\056 

# camel code, copywrite 2000 by Stephen B. Jenkins 

# The use of a camel image with the topic of Perl 

# is a trademark of O'Reilly & Associates, Inc. 

# Used with permission. 



) ; ;s 
\124 
41\0 
141 
\163\16 3\ 
57\156 
120\1 
040\14 
\145\ 
0\157 
122\1 
\040 
3\16 
1\14 
\054 
3\056 
4\040\ 
40\160\ 
\155\151 
\151\1 
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Perl-Camel 

• Ausgabe des Programms: 



mJXXLm. 
JXXXXXXXXL . 
{XXXXXXXXXXX. 



JXXLm . . mJXXL 

JXXXmXXXXm mXXXXmXXXL 



.m JXXLm 
.JXXXXXXXXL 
.XXXXXXXXXXX} 



. XXXXXXXXXXXXXL . {XXXXXXXXXF 7 XXXXXXXXX } . JXXXXXXXXXXXXX . 



JXXXXXXXXXXXXXXXXL . 'XXXXXX. 
JXXXXXXXXXXXXXXXXXXXmXXXXXXX . 
. XXXXXXXXXXXXXXXXXXXXXXXXXXXXX } 

. xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

JXXXXXXXXXXXXXXXXXXXXXXXXXXXXXF 
XX A 7XXXXXXXXXXXXXXXXXXXXXXXXXF 
XX {XXXFXXXXXXXXXXXXXXXXXXXF' 
'X) {XXX' 7XXXFXXXXX A XXXXX " 



.XXXXXX' .JXXXXXXXXXXXXXXXXL 
. XXXXXXXmXXXXXXXXXXXXXXXXXXXL 
( XXXXXXXXXXXXXXXXXXXXXXXXXXXXX . 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX . 
7XXXXXXXXXXXXXXXXXXXXXXXXXXXXXL 
7XXXXXXXXXXXXXXXXXXXXXXXXXF A XX 
1 7XXXXXXXXXXXXXXXXXXX7XXX } XX 
' ' XXXXX A XXXXX7XXXF ' XXX } { X ' 



'XXX' 


{XXX'XXXXX 


7XXXF 


7XXXF 


XXXXX'XXX) 


'XXX' 


.XX) 


{XXF {XXXX} 'XXX) 


(XXX' 


{XXXX} 7 XX) 


{XX. 


{XX 


'XXL '7XX) 


7XX} 


{XXF 


{XXF' JXX' 


XX) 


"XX 


"XXL mXXF 


{XX 


XX) 


7XXm JXX' 


XX' 


XX 


7XXXF 


"XX 


XX' 


7XXXF 


XX 


XX. 


JXXXX. 


7X. 


.XF 


.XXXXL 


.XX 


{XXL 


7XF7XXX. 


{XX 


XX) 


. XXXF7XF 


JXX) 


'XXX' 




'XXXm 


mXXX' 




'XXX' 




mmm . m . nunm . 


. mm7XXXX . mm . mm . 


. mm . mm . XXXXFmm . 


. mmm . m . mmm 






'7LFJXXJX\FLXXL7FLLXJF\X{ 


}X\7LXJJ7FJXXJ7\XLXXL7JF' 




















.mJXXLm 


mJXXLm 







. mJXXL . JXXXXXXXXL 

mXXXXmXXXL . XXXXXXXXXXX ) 

7 XXXXXXXXX ) . JXXXXXXXXXXXXX . 
.XXXXXX' .JXXXXXXXXXXXXXXXXL 
. XXXXXXXmXXXXXXXXXXXXXXXXXXXL 
{ XXXXXXXXXXXXXXXXXXXXXXXXXXXXX . 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx . 

7XXXXXXXXXXXXXXXXXXXXXXXXXXXXXL 
7XXXXXXXXXXXXXXXXXXXXXXXXXF A XX 
'7XXXXXXXXXXXXXXXXXXX7XXX) XX 



JXXXXXXXXL . JXXLm . 

{ XXXXXXXXXXX . JXXXmXXXXm 
. XXXXXXXXXXXXXL . { XXXXXXXXXF 
JXXXXXXXXXXXXXXXXL. 'XXXXXX. 
JXXXXXXXXXXXXXXXXXXXmXXXXXXX . 
. XXXXXXXXXXXXXXXXXXXXXXXXXXXXX ) 

. xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

JXXXXXXXXXXXXXXXXXXXXXXXXXXXXXF 
XX A 7XXXXXXXXXXXXXXXXXXXXXXXXXF 
XX {XXXFXXXXXXXXXXXXXXXXXXXF' 



' ' xxxxx 


A XXXXX7XXXF 'XXX) {X' 


'X) {XXX' 7XXXFXXXXX A 


XXXXX " 


7XXXF 


XXXXX" XXX) 


'XXX" 


"XXX' 


{XXX'XXXXX 


7XXXF 


{XXX' 


{XXXX) 7 XX) 


{XX. 


.XX) 


{XXF {XXXX) 'XXX) 


{XXF 


{XXF' JXX' 


XX) 


{XX 


'XXL '7XXJ 


7XX) 


XX) 


7XXm JXX' 


XX' 


'XX 


'XXL mXXF 


{XX 


XX' 


7XXXF 


XX 


XX 


7XXXF 


'XX 


.XF 


. XXXXL 


.XX 


XX. 


JXXXX. 


7X. 


XX) 


. XXXF7XF 


JXX) 


{XXL 


7XF7XXX. 


{XX 


mXXX' 




'XXX' 


'XXX' 




'XXXm 


. mm . mm . XXXXFmm . 


. mmm . m . mmm 






mmm . m . mmm . 


. mm7XXXX . mm . mm . 


)X\7LXJJ7F JXXJ7 \XLXXL7 JF ' 






' 7LF JXX JX\FLXXL7FLLX JF\X { 



The use of 
Associates , 



i camel image in association with Perl is a trademark of O'Reilly & 
Inc . Used with permission . #camelcode, copywrite2000byStephenB . Jenkins 
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Weird programming - programmieren, wie es die Welt nicht braucht 

IOCCC 

• The International Obfuscated C Code Contest 

• http : / / www . ioccc . org/ 

• (fast) jahrlicher Wettbewerb 



file://localhost/home/schabi/ccc/public_html/weirdprog20c3/index21.html 




34 of 54 



13.01.2005 21:04 



Weird programming - programmieren, wie es die Welt nicht braucht 



file://locamost/home/schabi/ccc/public_html/weirdprog20c3/index21.html 



IOCCC - Appetithappchen 2001 
hello 2001 .c 




#include <stdio.h> 
#define S(s)char x[]=#s;s 
#define Q(x)x 
#define A(x,y)y##x 
#define B(x,y)A(y,x) 
#define C(x,y)B(y,x) 

#define Z(s,t,u)case s : if (*p ! =32) {t ; }else{u; }break; 
S(B( A( a ,m ) ,A(n ,i))() {B (A(h,c ) ,A(r ,a ) ) *p=x ;B(A( n, 
=0;B(A(n , i),t)s =0;B( f ,A(r, o )) (;*p;Q( p)++){C( B( A(c 
w, s),i))( s) { Z( 0,t+=8 *8-00 , s ++) Z ( l,t+= 8 ;,s++ )Z 
( 2, t++ ,putchar (t-73) ;t=s=0) } } }) 

Ausgabe: 

Hello , world! 
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IOCCC - anderson.c 

• Contest 2000 - anderson.c 

• Konvertiert stdin in ASCII-Grafik Flaggencode 

• Beispiel: Hello World als Eingabe erzeugt die Ausgabe 



_() 
[] / A 
<>[ 



<> 

0/ 

A A 



[] [ 



<> 

0/ 

I A A 
<>] [ 



<> 

0/ 

I A A 
<>] [ 



<> 
_\) 

[] 

] [ 





I AA I 

[] [] 




<> <> 

(/_ _\) 

AA [J AA 

] [ ] [ 



<> 

_()_ 0/ 

[] AA [] / AA 
] [ <>] [ 



[] 

I 

A A 



] [] 





|AA| 
[] [] 
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IOCCC - anderson 



/* anderson . c */ 
# include <stdio.h> 

char 

*T="IeJKLMaYQCE] jbZRskc [SldU"V\\X\\ | /_<[<: 90 ! \"$434- . /2>] s" , 
K[3] [1000] , *F, x, A, *M[2] , *J, r [4] , *g,N, Y, *Q,W, *k, q,D;X() {r [r 

[r [3]=M[1- (xSl) ] [*r=W, 1] , 2 ] =*Q+2 , 1 ] =x+l+Y, *g++= ( ( ( (xS 7) 

-1) »1) -1) ?*r :r [x»3] , (++x<*r) &SX { ) ; } E f ) {A I |X(x=0,g =J 

) , X=7S (*T»A*3) , J[ (x[F]-W-x) A A*7] =Q[x53] A A* ( *M) [2 + ( 

xSl) ] , g=J+ ( (x[kj -W) "A*7) —A, g [1] = (*M) [*g=M[T+=A , 1 

] [xSl] , XSl] , (A A =1) SS (E f ) , J+=W) ; )1 () (E ( — qSSl () 

) ; }B () {*J&&B ( (D=*J, Q[2] <D&&D<k[l] SS (*g++=l ) , 

! (D-WSSD-9&&D-10&&D-13) && ( !*r&S (*g++=0) , * 

r=l) | | 64<D&&D<91&& (*r=0, *g++=D-63) | |D >= 

97SSD<123S6 (*r=0 , *g++=D-95) | | ! (D-k [ 3] 

) SS (*r=0, *g++=12) | | D>k [3] SSD<=k [ 1] 

-1SS (*r=0, *g++=D-47) , J++) ) ; ) j ( ) { 

put char (A) ; }b ( ) { { j (A= (*K) [D* W+ 

r[2]*Y+x] ) ,++x<Y)SSb() ; )t () 

((j((b(D=q[g],x=0),A=W) ), 

++q< (* (r+1) <Y?* (r+1) : Y) 

)SSt();)R(){(A=(t( q= 

0),'\n'),j(),++r [2 

]<N)SSR() ; )0() (( 

j((r[2]=0,R( )) 

),r[l]-=q) SS 

0(g-=-q) ;) 

C(){( J= 

gets (K 

[l]))SSC((B(g=K[2]),*r=! ( ! *rSS (*g++=0) ) , (*r) [r] =g-K [2] , g=K [2 

],r[ 

1]SS 

0(1) 

);;} 



(c 
KM 
(J=( 

A=0) 
[K], 

A[M] 

= (F= 
(k=( 

M[ !A 

1 = (Q 
=T+( 
q=(Y 
= (W= 
32)- 
(N=4 
)))) 
+N) + 
2) +7 
)+7) 
),^= 
N«( 
*r=! 
-A)) 

);;} 
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IOCCC - heathbar.c 

















include 


<stdio .h> 














define 


MAin 


printf ("%d\n" 














define 


mAIN 




return 














define 


MaiN 




{ static 














de f ine 


mAIN 




) { if ( 


# 
































define 


MA N 




(! ! ( 














define 


mAiN 




atoi 


# 












define 


mAIn 




&1<< 


# 












define 


MAIN 




!=3) 


# 












define 


MAIn 




) && 


# 












define 


MAIN 




int 
















main 


















de f ine 


Main 




K< 
















Main 




++ 


# 












define 


MalN 




1 = 














define 


MAIn 




1 1 














define 


malN 




~* 














define 


malN 


















de f ine 


MalN 




= 
















malN 




) 














define 


MalN 




( 














define 


Main 


















de f ine 


mAIn 




j 
















MAIn 




} 














define 
MAIN 
MalN 
malN 
mAiN 


mAIN 

MAIN 
mAIN 
MalN 








MAIN 


ma IN 


mAIN 


main 


MalN 


malN mAIN 


main 








mAlN 










maiN 


Main 








MAIN 




main 


MalN 


MAIN 


Main mAIN MAIN 


ma IN 








mAin 




mAIN 






Main 


MAIN 








mAIN 




Main 






main 


Main 








mAlN Main 


main 


mAin 


Main 




Main 


main 








MalN 






mAiN 




MalN 


MalN 








Main 






main 




ma IN 


mAin 








Main 






ma IN 




ma IN 


Main 








main 






MalN 




mAiN 


MalN 








MalN 






Main 




main 


ma IN 








mAin 






Main 




ma IN 


ma IN 








Main 






mAIn 




MalN 


mAIn 








MalN 






mAIn 




MalN 


mAIn 








MalN 






mAIn 




MalN mAIn 


MalN 


mAIn 






MalN 




mAIn 




MalN mAIn 


MalN 


mAIn 





MalN mAIn MalN mAIn MalN mAIn 





MalN 


mAIn MalN 




mAIn MalN mAIn 






MalN 




Main 


ma IN 






ma IN 




ma IN 


ma IN 


ma IN 


ma IN ma IN 


ma IN 




malN 


malN 


ma IN 




ma IN 




malN 


ma IN 


ma IN 




ma IN 




Main 


MAin 


mAIN 


maiN ma IN 


Main mAIN Main 




MAIn 


MAIN 


mAIn 


MalN 


MAIN 




mAin 


ma IN 


MaiN 


MAIN 


main 




MalN 


malN 


Main 


main 


Main 




Main 


mAIN 


mAIN 


maiN 


MalN 




MalN 


MAiN 


main 


mAIn 


main 




malN 


MAIn 


MalN MAiN 




main 


mAIn 


main malN 




MAln 


mAin 




MAIn 




MalN 


mAIn 


MAiN main 




mAIn 


main 


MAIn mAin 




ma IN 


ma IN 




malN MAIn 


MalN 


mAIn MAiN main 


mAIn 




main MAIn 








MalN 




MAiN main 








mAIn 


main 


malN MAln mAin 


MAIn 






MalN 


mAIn 




MAiN 






main 


mAIn 




main 






MAIn 


mAin 




ma IN 






ma IN 


ma IN 




ma IN 






ma IN 


ma IN 




Main 






main 


mAIN 




MAiN 






main 


mAIn 




main 






MAIn 


mAin 




ma IN 
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MAln MAiN main 

mAln main MAln 

Ma IN MAiN main 

mAln main malN MAln 

mAin MAln 

MalN mAln 

MAiN main 

mAln main 

MAln mAin 

ma IN ma IN 

ma IN malN 

Main MAln 
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"Job-Erhalt" durch unwartbaren Code 

• Sonderform der Obfuscation 

• "Never ascribe to malice, that which can be explained by incompetence" 

• HowtO ailf http : / / mindprod . com/ unmain . html 

• Code soil nicht unwartbar aussehen, sondern es nur sein. 
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"Job-Erhalt" durch unwartbaren Code 

• Beispiel-Tipps: 

Exakt das Offensichtliche kommentieren 
Zeichen-Ahnlichkeiten ausnutzen 
Gleiche Bezeichner in verschiedenen Scopes 
Praprozessor intensiv missbrauchen 
"Toten" Code einbauen 

Variablen aus einem Baby-Namensbuch benennen 
Einfach und schnell zu tippende Namen verwenden 
Esperanto, Klingonisch und Hobbitese fur Bezeichner und Kommentare 
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Mehrsprachigkeit (Polyglot) 

• Portierbarkeit bedeutet normalerweise: 

Verschiedene Implementierunen derselben Sprache 
Unterschiedliche Plattformen und Bibliotheken 

• Polyglot-Programme erweitern das Konzept: 

in mehreren Sprachen gleichzeitig gultiger Quelltext 
Dazu noch sematisch aquivalent 
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Quine in TurboPascal und ANSI 



(*a) ;main() {char i, *s [ ] ={ "%c%s%c%c%c" , 
" (*a) ; main () {char i,*s[]={", 

"%c%c%c%s%c%s%c%s%c%s%c/*%c%s" , 

";printf (s [1] ) ; f or (i=0 ; i<=12 ; i++) printf (s [0] , 34, s [i] , 34, 44, 10) ; ", 
"printf (s[2] , 34 , 34 , 125, s [3] , 10, s [4] , 10, s [5] , 10, s [6] , 10, 41, s [7] ) ; ", 
"for (i=0;i<=12; i++) printf (s[0] ,39,s[i] ,39,44,10) 

"printf (s [12] , 39, 39, 41, s [8] , 10, s [9] , 10, s [10] , 10, s [11] , 10, 47, 125) ; ", 
"const q=#34;w=#39;n=#13#10;s:array[0. .13] of string=(", 

";var i : integer ; begin write (s [1] ); for i : =0to 12do write (q, s [i] , q, #44 , n) ; " 
"write(#34#34#125,s[3] ,n,s[4] ,n,s[5] ,n,s[6] ,n, #47#42#41, s [7] ) ; ", 
"for i:=0to 12do write (w, s [i] , w, #44 , n) ; ", 

"write(#39#39#41,s[8] , n, s [9] , n, s [10] , n, s [11] , n, #123#42#47#125) ;end.", 
"%c%c%c%s%c%s%c%s%c%s%c{*%c%c" , 

""};printf (s[l]) ; for (i=0 ; i<=12 ; i++) printf (s [0] ,34,s[i] ,34,44, 10) ; 
printf (s [2] , 34 , 34 , 125, s [3] , 10, s [4] , 10, s [5] , 10, s [6] , 10, 41, s [7] ) ; 
for (i=0;i<=12; i++) printf (s [0] , 39, s [i] , 39, 44, 10) ; 

printf (s [12] , 39, 39, 41, s [8] , 10, s [9] , 10, s [10] , 10, s [11] ,10,47,125) ; 
/*)const q=#34;w=#39;n=#13#10;s: array [0. .13] of string= ( ' %c%s%c%c%c' , 
' (*a) ; main () {char i,*s[]={', 

' %c%c%c%s%c%s%c%s%c%s%c/*%c%s' , 

' ; printf (s[l] ) ; for (i=0; i<=12; i++) printf (s [0] , 34, s [i] , 34, 44, 10) ; ' , 
'printf (s [2] , 34 , 34 , 125, s [3] , 10, s [4] , 10, s [5] , 10, s [6] , 10, 41, s [7] ) ; ' , 
' for (i=0;i<=12;i++) printf (s[0] ,39,s[i] ,39,44,10) ; ' , 

'printf (s [12] , 39, 39, 41, s [8] , 10, s [9] , 10, s [10] , 10, s [11] ,10,47,125) ; ' , 
'const q=#34;w=#39;n=#13#10;s:array[0. .13] of string=(', 

';var i : integer ; begin write (s [1] ); for i : =0to 12do write (q, s [i] , q, #44 , n) ; ' 
'write(#34#34#125,s[3] ,n,s[4] ,n,s[5] ,n,s[6] ,n, #47#42#41, s [7] ) ; ' , 
'for i:=0to 12do write (w, s [i] , w, #44 , n) ; ', 

'write (#39#39#41, s[8] , n, s [9] , n, s [10] , n, s [11] , n, #123#42#47#125) ;end. ' , 

' %c%c%c%s%c%s%c%s%c%s%c{*%c%c' , 

");var i : integer; begin write (s [1] ); for i:=0to 12do write (q, s [i] , q, #44 , n) 
write(#34#34#125,s[3] ,n,s[4] ,n,s[5] ,n,s[6] , n, #47#42#41, s [7] ) ; 
for i:=0to 12do write (w, s [i] , w, #44 , n) ; 

write(#39#39#41,s[8] ,n,s[9] ,n,s[10] ,n,s[ll] , n, #123#42#47#125) ;end. 
{*/} 



43 of 54 



file://localhost/home/schabi/ccc/public_html/weirdprog20c3/index21.html 




13.01.2005 21:04 



Weird programming - programmieren, wie es die Welt nicht braucht 



If 



hello polyglot" in 7 



cut here — (two blank lines are MANDATORY) 



Cu 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

CuG 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 
c 
c 
c 
c 
c 



POLYGLOT - a program in seven languages 15 February 1991 

Written by Kevin Bungard, Peter Lisle, and Chris Tham 

We have successfully run this program using the following: 



ANSI COBOL: 
ISO Pascal: 

ANSI Fortran: 

ANSI C (lint free) : 

PostScript : 

Shell script : 

8086 machine language: 



MicroFocus COBOL85 (not COBOL74) 
Turbo Pascal (DOS & Mac) , Unix PC, 
AIX VS Pascal 
Unix f77, AIX VS Fortran 
Microsoft C, Unix CC, GCC, Turbo C++, 
Think C (Mac) 

GoScript, HP/Adobe cartridge, 
Apple LaserWriter 

gnu bash, sh (SysV, BSD, MRS) , ksh 
MS-DOS 2.00, 3.03, 4.01, 5.00 beta 
VPix & DOS Merge (under unix) 
SoftPC (on a Mac) , MKS shell 



(*0/ 

* )pop mark/CuG 4 def/# 2 def %%%%@@P [TX P\P_SXPY ! Ex (mx2ex ( "SX ! Ex4P) Ex 

*+Ex- 
-*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 
*+Ex- 



Usage : 

1. Rename this file to polyglot . [cob | pas | f 77 | c | ps | sh | com] 

2 . Compile and/ or run with appropriate compiler and 
operating system 

Notes : 

1 . We have attempted to use only standard language features . 
Without the -traditional flag gcc will issue a warning. 



This text is a comment block in all seven languages . 

When run as a .COM file with MS-DOS it makes certain 
(not unreasonable) assumptions about the contents of 
the registers . 

When transfering from Unix to DOS make sure that a LF 
is correctly translated into a CR/LF. 



Please mail any comments, corrections or additions to 
peril@ext ro . ucc .su.oz.au 



*QuZ- 

*+Ex- 

* !Mx) ExQX4ZPZ4SP5n#5X! ) Ex+ExPQXH, B+ExP [-9Z-9Z) GA (W@ ' UTTER_XYZ Z Y ' CPK*+ 

*( 

/); /*( 
) program polyglot (output) ; (*+ 

identification division. 



program-id. 
data 

procedure 



polyglot . 

division . 
division . 



) ) cleartomark /Bookman-Demi f indfont 36 scalefont setfont 



main . 

perform 
) 2>_$$; echo 
print 
stop run . 



hello polyglots$ 
"hello polyglots"; rm _$$; exit 
'hello polyglots' 
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c 








c 




print . 




c 




display 


"hello polyglots". 


c 


*/ 


int i; 




c 


*/ 


main () { 




c 
c 


*/ 


i=printf 


{"hello polyglots\n" ) ; 


c 


*) 
*) 


begin 




c 
c 


*) 


writ eln 


( nello poJ.ygj.oti5 ) , 


c 


*) 
* ) 


pop 60 360 




c 


* ) 


pop moveto 


(hello polyglots) show 


c 
c 


* ) 
*) 


pop showpage 








end 




C)pop% 


program 


polyglot . 
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Kombi-Disziplin: Obfuscation und Dreier-Quine 

• Ebenfalls Eingereicht zum IOCCC 

• Autor: Don Yang 

• saitou.c ist ein Bild von Saitou Hajime 

• Es generiert einen Quine-Dreierzyklus, die Bilder Saitous Motto 
symbolisieren: 

aku (sin - Sunde) 
soku (swift - schnell, geschickt) 
zan (slay - toten) 




46 of 54 



13.01.2005 21:04 



Weird programming - programmieren, wie es die Welt nicht braucht 



saitu.c 



#define/**/X 
char*d="X0 [ !4cM, ! " 
" 4cK ' * ! 4 c Jc ( ! 4cHgS ! 4 c$ j " 
"8f ' !S~] 9e) ! ' | :d+! )rAc-! *m*" 
" : d/ ! 4c (b4e0 ! Ir2e2 ! /t0e4 ! -y-c6 ! " 
"+ I , c6 ! ) f$b(h*c6! (d'b(i)d5! (b*a' 'sc" 
") c5 ! ' b+ 'sb' c) c4 ! sb-_$c' d*c3 ! sa.h' d+" 
"dl!%a/g'e+eO!%b-g(d.d/!sc*h'dld-! (d%g) " 
"d4d+! *l,d7d) ! , h-d; c' ! .bOc>d% ! A'Dc$ ! [7) 35E" 
" ! ' IcA, , !2kE'* !-s@d( ! (k (f//gs ! ) £ . e5' f ( ! +a+) " 
"f%2g* ! ?f5f , !=f-*e/!<d6el ! 9e0 ' f 3 ! 6f ) -g5 !4d*b" 
"+e6!0f %k)d7!+~ A ' c7! ) z/d-+! 'n%aO (d5 ! %cla+/d4 " 
" !2) c9e2 ! 9b; el ! 8b>e/! 7cAd- ! 5f Ae+ ! 7£Be ( ! " 

"8hBds! :iAd$! [7S,Q0!1 bF 7 ! lb? ' _6 ! lc, 8b4" 



" !2b*a, *d3!2n4f2!${4 


£. 


%y4e5!sf%" 


"d- A -d7 ! 4c+b) d9 ! 4c-a 


'd 


!/i(' "Sd" 


"; !+l'a+d<! ) l*b(d=! ' 


m- a 


sd> ! sd' " 


"'0 sc? ! $dAc@ ! $cBc@ ! $ 


b < 


A sd$ '" 


" : !$d9 Sl++ A $ ! %f3a' 


nl 


$ !S" 


"f/c(o/_%! (f+c)q*c 


j! * 


f sd+" 


"f $ss ! -n, d) n ( ! 01- c- 


k) 


! 3d" 


'7b0h*!H'7a, ! [7* i] 


5 


4 71" 


" [=ohrso*t*q* '*d *v 


*r 


; 02" 


"7*~=h. /Jtcrsth St 




r 9b" 


"] .,b-725-.t— // #r 


[ 


< t8-" 


"752793? <.~;b ] .t— 


-+r / 


# 53" 


"7-r[/9~X .v90 <6/< 


v;-52/={ 


k goh" 


" . / }q; u vto hr ' 


i*$engt$ 


$ ,b" 


";$/ =t ;v; 6 


= 'it. ';7=' 


: ,b-" 


"725 = / o'. .d 


;b] '--[/+ 


55/ }o" 


" 1 .d - ?5 / 


}o'.' 


v/i]q - " 


"-[; 5 2 =' it 




o;53- . " 


"v96 <7 / =o 




d =o' 


"— /i ]q— [; 


h. 


/ = ' 


"i]q— [ ;v 9h 


./ 


< — 1 


"52=(cj u CS ' 


i t 


. o ; 1 


"?4=o:d= o — 


/ i 


]q 



- [ ; 54={ cj ucs 
[ ; 76=i]q[ ; 6 =vsr 
=),BihY_gha , ) \0 

3217] ; int i, r,w, f 
p ; n (){ return r <X 
768?d[X(143+ X r++ 
768]:r>2659 ? 59: 
[(r++-768)% X 947 
x A (p?6: 0) : (p = 34 
; )s() {for(x= n (); 
?6:0))==32;x= n () 
void/**/main X () 
=0;w=sprintf (X X 
, "char*d=") ; for 
+143; ) if (33- ( b=d 
) {if (b<93) {if 
[w++]=34;for 
(p?0 : 1) ; i<b; 
[w++]=s();o[ 
=p?s() :34; } 
{for(i=92; 
++)o[w++] 
else 



i]q 



= {" 

3 [ 



X 
*d 



768] 



; return x 



f=l;f 
f++ 



) 



X(! 
X(i 
i++ 
w++ 
else 
i<b; 
32; } 
o [w++ 

=10 ;o 
w]=0 
puts (o) ; 



X 
> 

35 

o 

] 

X 
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aku.c 



char*d=" ) 35E ! ' IcA 
6el!9e0'f3!6f)-g 
!2)c9e2l9b;el!8b 
!lb?'_6!lc,8b4!2 
d9!4c-a'd: !/i (' ' 
$dAc@ ! $cBc@ !$b< A 
1_" 
+f$" 
7a, ! [" 
] 9a) ! ' " 

y-c6!+| ,c6!)f$b(" 

b'c)c4!&b-_$c" 

-g(d.d/!Sc*" 

d; c' ! .bOc" 

t*q* '*d" 

b].,b" " 
;b]." "t— 
52/=" 
t;v" 
/ + " 



q" 

o" " 

6=" 
int i , 
d+143+(r 
) ?x A (p?6:0 
) ; r=p=0; for ( 



" {kgoh . " 
";6='it." 
"55/)o' .d: 
";53-.v96<7 
— [;v9h./<- 
"— /i]q— [» 
"vsru . i" 



2kE '* !-s@d( ! (k (f//gs !]f.e5'f ( !+a+) f%2g* ! ?f5f , 
"5!4d*b+e6!0f%k)d7 !+-"' c7 ! ) z/d-+! 'n%aO (d5! 
">a/!7cAd-!5fAe+!7fEe(!8hBds! : iAd$ ! [7S,Q" 
"b*a, *d3!2n4f2! $(4f . ' ! %y4e5 ! 5f %d- A -d7 ! 4 " 
"&d; a+d<! ) l*b(d=! 'm-a&d>! fid' , 0_&c" 
"fid$ ' : ! $d9_fil++ A $ ! %f 3" 
"$!fif/c(o/_%! (f+c)q*c%" 
"sfi!-n,d)n(!Oi-c-k) !3d/" 
"7X0 [ !4cM, ! 4cK'*! 4c Jc ( • 4cHg& !4" 
I :d+!) ""rAc-!*m*:d/!4c(b4eO!lr" 
11 ! (d'b(i) d5! (b*a' " 
'"d*c3!Sa.h'd+d" 
"h'dld-! (d%g) " 
">d%!A , Dc$" 
" *v*r; 027" 
"-.t— /" 
"537-r" 
";u" "vtohr" 
"7="' ":,b-7" 
-?5" "/)»■. "' 

" :d=o — /" 
" { c juc& 1 " 
{c juc&i] q-" 
) f BihY_gha, ) " 
t=641,x;n() {return 



"h*c6" 



"-725" 
"+r/#" 
"/)q" 



"/=o 
"52=" 
" ; 54=" 
"/=(" 
,f.b,p, 
++) ) %t] :r> 
) : (p=+34) ; ) 
f=l; f<*d+143; ) 



=f-*a/!<d" 
"%cla+/d4 11 
" ! lbF7 " 
"c+b) " 



" ! *f Sd" 
"b0h*!H"' 
"c$j8f !S~" 
2e2!/t0e4!-" 
" 'ficJcS! 'b+'fi" 
"l!%a/g'e+e0!%b" 
"d4d+! *l,d7d) ! ,h-" 
" ! [7*i] 5471 [=ohrSo*" 
"*~=h. / JtcrsthSt : r9" 
V#r[<t8-752793?<.~" 
" [/9~X.v90<6/<.v;-" 
" ' . i*$engt$$, b; $/=" 
"25=/o'. .d;b] ' — [" 
"v/i]q— [;52=-it" 
"i]q— [;h./=i]" 
"it .o; ?4=o :d=" 
"-[;76=i]q[;" 
" ",o[3217] ; 
r<t?d[ (* 



+1341759: (x=d[ (r++-t) %351+t] 
main() {w=sprintf (o, "char" "*d=" 
if ( (b=d[f++] )-33) (if (b<+93) ( if ( 



!p)o[w++]=34;for{i=35+(p?0:l) ;i <b; i++) o [w++] =n ( ) ; o [w++] =p?n ( ) :+34 ; ) 

else for (i=92; i<b; i++) o [w++] =32 ; }else o [w++] =10 ; o [w] =0 ; puts (o) ; ) ; /*Don_Yang*/ ; 
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soku.c 



char*d="S,Q0 ! lbF7 ! lb? ' _" "6 ! lc, 8b4 !2b*a, *d3"" ! 2n4f 2 ! $ { 4f . ' ! %y4e5 ! Sf %d- A -d7 ! 4c+ 
b)d""9!4c-a'd: !/i (" "' 'sd; !+l' a+d< ! ) l*b (d= ! 'm-asd>" " ! sd' '0_s " "e? ! $dAc@ 



!$cBc@!$b< A sd$" 
q*c% ! *f Sd" 

7a, ! " " [7X0" 

!4c$j" "8f !s~]9e) " 

4e0!lr2" "e2 ! /tOe" "4 ! -y-" 

'b(i)d5! (b*a' 'Sc)c5! 'b+'sb' " 
1 ! %a/g' e+eO ! %b-g (d. d/ ! sc*" 
h-d;c' ! .b0c>d%!A'Dc$! [7) " 
! ) f .e5' f ( !+a+) f%2g* ! ?" 
5Md*b+e6!0f%k)d7! " 



">e/ ! 7c" 



!2)c9e2!9b;el!8b" 
d$! [7*i]5471" "[" 
=h./}tc" 
-//#r" 

37_.. .. r n 

t" "ohr ' . i*$engt$" 

.d;b] ' — [/+55/""}o' .d" 

<7/=o:d=o — /i]q — [;h. " 

d=o — /i]q — [ ; 54={cju" 

ha, ) ",o[3217] ; int i, 
+(r++) )%t] :r>+1341? 59: 
) ; }main { ) {w=sprintf {o , 
if ( (b=d[f++] ) -33) {if (b 
1) ;i<b;i++)o[w++]=n() ;o[ 



: ! $d9_Sl++ A $ ! %f 3a' nl_$ ! Sf /c (o/_% 
"+f $ss ! -n, d) n ( ! Oi-c-k) ! 3d/b0h" 
" [ ! 4cM, ! 4cK ""' * ! 4cJc ( ! 4cH" 
" ! ' I : d+ ! ) rAc- ! *m* : " "d/ ! " 
"O" "6!+| , c6! ) f $b(h" 
"c) c4 ! Sb-_$c' d*c3! " 
"h'dld-! (d""%g)d4d" 
"35E! ' IcA, , !2kE '*!-" 
"f5f , !=f-*e/ ! ""<d6" 
" "7!)z/d 



"Ad- ! 5f A" 
"=ohrS " 
"rst " 
" [<t8-752793" 
" [/9~X.v90<6/""<.v; " 
"$,b; $/=""t; v; 6= 'it . 
":-?5/}o-.'v/i]q— [;52" 
" /=i] q — [ ; v9h . /<-52=( c ju" 
"csi] q — [ ; 76=i] q [ ; 6=vsru . i/" 
r, w, f, b, p, t=641, x; n (){ return r< 



"! (f+c) 
"*!H' 
"gs 
"4c (b 
"*c6! (d' 
"sa.h'd+d 
"+!*l,d7d) ! , 
"s@d(! (k(f//gs 
"el!9e0'f3!6f)-g 
n 'n%a0 (d5! %cla+/d4 
"e+ ! 7fBe ( ! 8hBdS ! : iA 
o*t*q* '*d*v*r; 027*^ 
hst :r9b] . ,b-725-.t- 
"?<.~;b] .t"" — +r/#5 
"-52/=(kgoh./)q;uv 
";7=':,b-725=/o'. 
"='it.o;53-.v96 
"CS 'it .o; ?4=o: 
"={=) ,BihY_g 
t?d[ (*d+143 



(x=d[ (r++-t) %351+t] ) ?x A (p?6: 0) : (p=+34 

"char""*d=") ; r=p=0; for (f=l; f <*d +143; ) 

<+93) {if (!p)o[w++]=34;for(i=35+( p?0: 

w++]=p?n() :+34; )else for(i=92;i <b 



; i++) o[w++]=32; (else o [w++] =10; o [w] =0 ; puts (o) ; } ; /*Don_Yang*/ ; 
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zan.c 



char*d="X0 [ UcM 
4e0!lr2e2!/t0" 
' c) c4 ! &b-_$c' " 
g)d4d+!*l,d7d" 
-s@d(! (k(f//gs' 
6el!9e0'f3!6f)' 



!4cK'* ! 4cJc ( !4cHgS ! 4c$ j8f ' ! S~] 9e) ! ' | : d+ ! ) rAc-" " ! *m* :d/ ! 4c (b 
"e4 !-y-c6!+| , c6! ) f$b(h*c6! (d'b(i)d5"" ! (b*a' 'sc) c5 ! ' b+ 'sb 



d*c3 ! sa . h' d+dl ! %a/g' e+eO ! %b" "-g ( 
") !,h-d;c""' ! .bOod%!A'Dc$! [7)3 
" ! ) f .e5" "' f ( !+a+) ""£%2g* ! " 

"-g5 ! 4d*b+e6 ! Of %k" 
"d-+! 'n%aO (d5!%cl" 
"b;el!8b>e/!7cAd-" 
"iAd$![7S," "Q0!lbF7!l" 
"%y4e5!S" "f%d- A " 
" ) l*b (d= ! ' " "m-a" 

» - : !$""d9_" "SI" 
"q*c" "%!*fsd+ 
"H'7a, ! " " [7*i" 

"*~=h./}tc" "rs" 
52793?<.~;b] " ".t" 
" "-52/={kgoh. /}q; uvtohr 1 . i*$eng" 

"725=/o' . .d;b] ' — [ /+55/ )o 1 . d: -? " 
" .v96<7/=o:d=o — /i]q — [;h" "./" 
" "c& "it . o; ?4=o : d=o — /i] " "q-" 

q" " — [ ; 76=i] q [ ; 6=v" "sru" 

gh" "a, ) ",o[3217] ; int i 

x;n() {return r <t?d[(* 

)%t]:r>+ 1341 ?59:(x=d[ 

) %351+t] ) ?x A (p?6 :0) : ( 

) {w=sprintf {o, "char""*d=" 
*d+143; ) if ( (b=d[f ++] ) -33) ( if (b 

for(i=35+ (p?0:l) ; i<b; i++) o [w++] =n ( ) ;o[ 
<b;i++)o[w++]=32; Jelse o [w++] =10 ; o [w] =0 



9" 

S ! " " : « 

d3!2n4f2!${4f .' !' 
i (' 'sd; !+l' a+d<! ' 
Bc@ ! $b< A sd$ " 
%! (f+c) " 
bOh* ! " 
027" 
<t" 



"8-7" 



d.d/!sc*h'dld-! (d% 
"5E! ' IcA, , !2kE '* ! 
"?f5f , !=f-*e/!<d 
") d7!+~ A ' c7 ! ) z/ 
"a+/d4 !2) c9" "e2 ! 
" !5fAe+!7fBe( ! 8hBd' 
"b? ' _6 ! lc, 8b4 ! 2b*a, * 
"-d7 ! 4c+b) d9 ! 4c-a' d: ! / 
"sd>!sd' > 0_sc?!$dAc@!$c 
"++ A $ ! %f 3a' nl_$ ! sf /c (o/_ 
"f$ss !-n,d)n( ! Oi-c-k) ! 3d/ 
"] 5471 [=ohrSo*t*q* "*d*v*r; 
"thst:r9b] . ,b-725-.t — //#r[ 
" — +r/#537-r[/9~X.v90<6/<.v; 
"t$$,b; $/=t; v; 6=' it . 1 ; 7=' : ,b- 
"5/}o ' . ' v/i]q — [; 52=' it .o; 53- 
"" "=i]q — [; v9h. /<-52={cju 
"- [ ; 54={ " "c juc&i] " " 
" .i/={=) ,BihY_" 
, r,w, f ,b,p, t= 641 
d+143+(r ++) 
(r ++-t 
p=+34) ; }main ( 

r=p=0;for (f=l;f< 
<+93) (if ( !p) o[ w++]=34; 
w++]=p?n() :+34; Jelse for(i=92;i 
puts (o) ; } ; /*Don_Yang*/; ;;;;;;;;;;;;;;; 



) ; 
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Weiteres z. B.: 

• Selbstmodifizierender Code 

Camian: 

" The only thing better than self-modifying code is code that modifies itself before it does 
so." 

• Variablen-Superposition 

Perl CPAN Modul Quantum: : Superpositions 
if (a==23 && a==42) { blubb(); } 

• Seltsame Umgebungen 

Alles programmieren, was annahernd 
Befehle ausfuhren kann 

z. B. Tetris in Openfirmware 

Biinkeniights : Hauserfront als 
Bildschirm 



Literatur (hoffentlich vollstandig) 

• http://www.cfoocfle.com/ - die Suchmaschine meiner Wahl 
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• http://www.blinkenlicfhts.de/ - Hauserfront als Computerdisplay 

• http://www.ioccc.orcf/ - International Obfuscated C Coding Contest 

• http : //www. mines . edu/students/b/bolmstea/cfuines/ - the Quines List 

• http://www2.latech.edu/~acm/HelloWorld.shtml - the ACM Hello World page 

• http://pauillac.inria.fr/caml/FAQ/ - the Caml FAQ 

• http://www.cliff.biffle.orcf/esoterica/beatnik.html - The Beatnik Language 

• http://www.cliff.biffle.org/esoterica/hg9plus.html - The HQ9+ programming 
language 

• http://9 9-bottles-of-beer.ls-la.net/ - iiber 570 mal 99 Bierflaschen 

• http://www.selectorweb.com/perl.html - selectorweb Perl seite 

• http://www.stud.uni-hannover.de/~freise/ascii/pgr/perl.txt - U. a. das 
Perl-Camel 

• http://www.catseye.mb.ca/esoteric/bf/ - "die" Brainfuck Homepage 

• http://www.muppetlabs.com/~breadbox/bf/ - eine weitere Seite zu Brainfuck 

• http://koeln.ccc.de/projekte/brainfuck/index-e.html - Brainfuck Projekt des 
CCC Koln 

• http://cydathria.com/bf/brainfuck.html - Programming in Brainfuck - 
Introduction 

• http://www.muppetlabs.com/~breadbox/intercal-man/ - the InterCal Programming 
Manual 

• http://www.catseye.mb.ca/esoteric/befunge/ - Befunge Homepage 

• http://www.p-nand-g.com/humor/programming languages/ java2k . html - Java2k 
Homepage 
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• http://www.kraml.at/stupid/ - Esoteric Language Database 

• http://www.dangermouse.net/esoteric/chef.html - The Chef Programming 
Language 

• http://mindprod.com/unmain.html - Unmaintainable Code Howto 

• compsoc.dur.ac.uk/whitespace/ - the WhiteSpace Homepage 

• Linux Magazin, Ausgabe 12/2003, Artikel "Getarnte Quellen", Seite 95ff 
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Ende 



Vortrag ist im HTML-Format online 

http : //ulm. ccc . de/~schabi/weirdproq2 0c3/ 

Kontakt: | 

Verwendete Software: 

Opera 

nedit 

Gimp 

Debian Sarge Linux 
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